home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / S / Stock HELPER®.cpt / Stock HELPERÆ V0.2 / background_2433.txt < prev    next >
Text File  |  1988-03-23  |  2KB  |  78 lines
  1. -- background: 2433 from stack: in.2
  2. -- bmap block id: 29518
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on findString SearchName,fieldName
  8.   set cursor to 4
  9.   set lockScreen to true
  10.   put empty into foundCard
  11.   put empty into firstFound
  12.   put "x" into it
  13.   repeat until (foundCard is not empty) or (it is empty)
  14.     put empty into it
  15.     find searchName in field fieldName
  16.     if short name of this card is not "Title card" then
  17.       get short ID of this card
  18.       if field fieldName=searchName then
  19.         put it into foundCard
  20.       else
  21.         if firstFound is empty then
  22.           put it into firstFound
  23.         else
  24.           if it=firstFound then
  25.             put empty into it -- stop when all cards searched
  26.           end if
  27.         end if
  28.       end if
  29.     end if
  30.   end repeat
  31.   if foundCard is empty then
  32.     go to card "Title Card"
  33.     answer searchName&&"not found"
  34.   end if
  35.   set lockScreen to false
  36. end findString
  37.  
  38.  
  39. -- part 3 (button)
  40. -- low flags: 00
  41. -- high flags: 0000
  42. -- rect: left=5 top=319 right=338 bottom=25
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 21700 / 21700
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Home
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   visual effect iris close
  54.   go home
  55. end mouseUp
  56.  
  57.  
  58.  
  59.  
  60. -- part 4 (button)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=423 top=319 right=338 bottom=443
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 1013 / 1013
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: To Title Card
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   global firstChart
  75.   visual effect wipe right
  76.   go card firstChart
  77. end mouseUp
  78.